(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     48328,       1364]
NotebookOptionsPosition[     39475,       1206]
NotebookOutlinePosition[     39832,       1222]
CellTagsIndexPosition[     39789,       1219]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.779377209293911*^9, 3.779377212586344*^9}, {
  3.7793773849192286`*^9, 3.779377452055106*^9}, {3.7793793167193794`*^9, 
  3.7793793200439115`*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"aaef2067-e2c3-4a61-9dd8-dd5ae8f23f26"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"l", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.779379463572392*^9, 3.7793794792464557`*^9}, {
  3.7793808768437257`*^9, 3.7793809247285347`*^9}, {3.7793809547615275`*^9, 
  3.779380992374069*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"a326f2bf-e3ac-4644-81d5-f8fb52d07ccf"],

Cell[BoxData[
 RowBox[{"l", "[", "t", "]"}]], "Output",
 CellChangeTimes->{
  3.779379479763359*^9, 3.779379510774372*^9, 3.779379593610114*^9, {
   3.7793808782437954`*^9, 3.779380993243616*^9}},
 CellLabel->
  "Out[129]=",ExpressionUUID->"4193da95-bf30-4eef-b42b-453d10d9cfa8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "[", 
  RowBox[{
   SubscriptBox["\[Theta]", "1"], ",", 
   SubscriptBox["\[Theta]", "2"], ",", "l", ",", 
   SubscriptBox["v", "1"], ",", 
   SubscriptBox["v", "2"], ",", 
   SubscriptBox["v", "3"]}], "]"}]], "Input",
 CellChangeTimes->{{3.7793774792090187`*^9, 3.7793776217651596`*^9}, {
  3.779379126874508*^9, 3.779379141110812*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"85798104-fa4c-45ab-9d90-3ce2e605e27b"],

Cell[BoxData[
 RowBox[{"T", "[", 
  RowBox[{
   SubscriptBox["\[Theta]", "1"], ",", 
   SubscriptBox["\[Theta]", "2"], ",", "l", ",", 
   SubscriptBox["v", "1"], ",", 
   SubscriptBox["v", "2"], ",", 
   SubscriptBox["v", "3"]}], "]"}]], "Output",
 CellChangeTimes->{
  3.7793776238589907`*^9, 3.7793791422991085`*^9, 3.779379247373109*^9, 
   3.7793793278800893`*^9, {3.779379486037463*^9, 3.7793795136041226`*^9}, 
   3.779379553916424*^9, {3.7793795961718564`*^9, 3.779379607062935*^9}, 
   3.779380932051587*^9, 3.779380997253658*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"d8f579f2-498c-4560-8380-7a2241af0f99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"V", "[", 
  RowBox[{
   SubscriptBox["\[Theta]", "1"], ",", 
   SubscriptBox["\[Theta]", "2"], ",", "l", ",", 
   SubscriptBox["v", "1"], ",", 
   SubscriptBox["v", "2"], ",", 
   SubscriptBox["v", "3"]}], "]"}]], "Input",
 CellChangeTimes->{{3.7793776345374823`*^9, 3.7793776482213306`*^9}, {
  3.7793791461067677`*^9, 3.7793792282114625`*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"a647f5b4-17a8-4976-8588-26b332a76b4f"],

Cell[BoxData[
 RowBox[{"V", "[", 
  RowBox[{
   SubscriptBox["\[Theta]", "1"], ",", 
   SubscriptBox["\[Theta]", "2"], ",", "l", ",", 
   SubscriptBox["v", "1"], ",", 
   SubscriptBox["v", "2"], ",", 
   SubscriptBox["v", "3"]}], "]"}]], "Output",
 CellChangeTimes->{
  3.7793776498384047`*^9, {3.7793791726361384`*^9, 3.7793792292799835`*^9}, 
   3.779379331184622*^9, {3.7793794882636557`*^9, 3.779379516269471*^9}, 
   3.7793795987173696`*^9, 3.7793809999173484`*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"55b554bf-a90f-42ea-ad29-8baa4f45cb7f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"L", "=", 
  RowBox[{"T", "-", "V"}]}]], "Input",
 CellChangeTimes->{{3.7793776538160715`*^9, 3.779377656939551*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"28b63a57-7716-4720-95d0-dfa924fb1d8d"],

Cell[BoxData[
 RowBox[{"T", "-", "V"}]], "Output",
 CellChangeTimes->{
  3.779379233194346*^9, 3.779379335263461*^9, {3.779379491014105*^9, 
   3.7793795487749157`*^9}, 3.7793796100575285`*^9, 3.7793810032306337`*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"a4c26d5e-8e54-4670-8adb-23c9dede361c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x2", "=", 
  RowBox[{
   RowBox[{"l", "*", 
    RowBox[{"Sin", "[", 
     SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"LL", "-", "l"}], ")"}], "*", 
    RowBox[{"Sin", "[", 
     SubscriptBox["\[Theta]", "2"], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7793777504684496`*^9, 3.779377845060916*^9}, {
  3.779377881977373*^9, 3.779377882352934*^9}, {3.779379659976391*^9, 
  3.7793796614692855`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"1d6533f7-08d4-4e54-9971-385acb0ce505"],

Cell[BoxData[
 RowBox[{
  RowBox[{"l", " ", 
   RowBox[{"Sin", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
   RowBox[{"Sin", "[", 
    SubscriptBox["\[Theta]", "2"], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.779377857811*^9, 3.7793778844024563`*^9}, 
   3.7793793389968586`*^9, 3.7793795216559763`*^9, 3.7793796634455276`*^9, 
   3.779381010753338*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"270f5053-cec7-4f1d-b226-debf8612f921"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"x1", "=", 
  RowBox[{"l", "*", 
   RowBox[{"Sin", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.779377886351226*^9, 3.7793778994302697`*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"71891fd5-2754-45a8-aeb0-a42ee22d5822"],

Cell[BoxData[
 RowBox[{"l", " ", 
  RowBox[{"Sin", "[", 
   SubscriptBox["\[Theta]", "1"], "]"}]}]], "Output",
 CellChangeTimes->{3.7793793420157423`*^9, 3.7793795246140585`*^9, 
  3.7793796694560843`*^9, 3.7793810139888706`*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"cdfc5049-32d4-4495-b9b9-2f1c32c2026c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y1", "=", 
  RowBox[{"l", "*", 
   RowBox[{"Cos", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7793779444475*^9, 3.7793779874699483`*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"8a5fecc0-3dff-47a3-afff-75a474dfa40d"],

Cell[BoxData[
 RowBox[{"l", " ", 
  RowBox[{"Cos", "[", 
   SubscriptBox["\[Theta]", "1"], "]"}]}]], "Output",
 CellChangeTimes->{3.7793779903598347`*^9, 3.7793793452114058`*^9, 
  3.7793795300931463`*^9, 3.7793796731368895`*^9, 3.7793810173163123`*^9},
 CellLabel->
  "Out[135]=",ExpressionUUID->"a120ec09-6913-4fff-aeaf-89bd21adb800"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y2", "=", 
  RowBox[{
   RowBox[{"l", "*", 
    RowBox[{"Cos", "[", 
     SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"LL", "-", "l"}], ")"}], "*", 
    RowBox[{"Cos", "[", 
     SubscriptBox["\[Theta]", "2"], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.779377994044891*^9, 3.779378090905405*^9}, 
   3.779379680191203*^9},
 CellLabel->
  "In[136]:=",ExpressionUUID->"9978bab7-898d-4246-bcbf-e39a2b094438"],

Cell[BoxData[
 RowBox[{
  RowBox[{"l", " ", 
   RowBox[{"Cos", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    SubscriptBox["\[Theta]", "2"], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7793810240021706`*^9},
 CellLabel->
  "Out[136]=",ExpressionUUID->"60d12355-2711-4fbe-918f-a980e66da03f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Theta]", "1"], "[", "t", "]"}], ",", "t"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7793797340423374`*^9, 3.77937974575091*^9}, {
  3.7793802373485966`*^9, 3.7793802381410513`*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"adda2796-3e9a-421f-94d9-d3ecc5c61974"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox[
   SubscriptBox["\[Theta]", "1"], "\[Prime]",
   MultilineFunction->None], "[", "t", "]"}]], "Output",
 CellChangeTimes->{3.779378091731681*^9, 3.7793782147939835`*^9, 
  3.7793793494102182`*^9, 3.779379535209276*^9, 3.7793796851145353`*^9, 
  3.779379746663305*^9, 3.779380239947926*^9, 3.7793810274528503`*^9},
 CellLabel->
  "Out[137]=",ExpressionUUID->"7a65ba71-5a3c-4774-9fd1-e9bd43656a94"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"T", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", "m1", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"x1", "[", "t", "]"}], ",", "t"}], "]"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"y1", "[", "t", "]"}], ",", "t"}], "]"}], "^", "2"}]}], 
     ")"}]}], "+", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", "m2", "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"x1", "[", "t", "]"}], ",", "t"}], "]"}], "^", "2"}], "+", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"y1", "[", "t", "]"}], ",", "t"}], "]"}], "^", "2"}]}], 
     ")"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7793793816387067`*^9, 3.779379434874284*^9}, {
  3.7793802531483154`*^9, 3.779380260057616*^9}, {3.7793803999728937`*^9, 
  3.7793804615629587`*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"8affc90d-0289-4374-9e03-b4dd8d2179a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "m1", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Cos", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Sin", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "m2", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Cos", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Sin", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{{3.77938046893417*^9, 3.7793804853324537`*^9}, 
   3.779381037467682*^9},
 CellLabel->
  "Out[138]=",ExpressionUUID->"2ce06a8a-e4d8-4250-b8c9-4e5407a77319"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"V", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "m1"}], "*", "g", "*", "y1"}], "+", 
   RowBox[{
    RowBox[{"-", "m2"}], "*", "g", "*", "y2"}], "+", 
   RowBox[{
    RowBox[{"-", "m1"}], "*", "a", "*", "x1"}], "-", 
   RowBox[{"m", "*", "a", "*", "x2"}]}]}]], "Input",
 CellChangeTimes->{{3.7793805475788164`*^9, 3.7793808107787905`*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"ea5ac848-4dda-4f36-bac9-7cdcfdef4c32"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "g"}], " ", "l", " ", "m1", " ", 
   RowBox[{"Cos", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}], "-", 
  RowBox[{"g", " ", "m2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"l", " ", 
      RowBox[{"Cos", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "-", 
  RowBox[{"a", " ", "l", " ", "m1", " ", 
   RowBox[{"Sin", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}], "-", 
  RowBox[{"a", " ", "m", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"l", " ", 
      RowBox[{"Sin", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7793808128293*^9, 3.779381044421378*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"807807af-c4e6-409a-89bb-53f2f1a6f203"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["L"], "Input",
 CellChangeTimes->{3.7793808384679546`*^9},
 CellLabel->
  "In[140]:=",ExpressionUUID->"f76a000c-e6d6-4284-87d5-0cd2b1e23ef9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", " ", "l", " ", "m1", " ", 
   RowBox[{"Cos", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
  RowBox[{"g", " ", "m2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"l", " ", 
      RowBox[{"Cos", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
      RowBox[{"Cos", "[", 
       SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+", 
  RowBox[{"a", " ", "l", " ", "m1", " ", 
   RowBox[{"Sin", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
  RowBox[{"a", " ", "m", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"l", " ", 
      RowBox[{"Sin", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
      RowBox[{"Sin", "[", 
       SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "m1", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Cos", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Sin", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "m2", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Cos", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
     SuperscriptBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"l", " ", 
          RowBox[{"Sin", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
        MultilineFunction->None], "[", "t", "]"}], "2"]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.779380839882184*^9, 3.7793810490781546`*^9},
 CellLabel->
  "Out[140]=",ExpressionUUID->"cc27a729-37ee-48b3-b763-ed3a2889113d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"L", "[", "v1", "]"}], ",", "v1"}], "]"}], "[", "t", "]"}], ",",
    "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7793810952297153`*^9, 3.7793811084808197`*^9}, {
  3.779381156140667*^9, 3.7793811707112904`*^9}, {3.779381234042818*^9, 
  3.779381270649664*^9}, {3.779381354685858*^9, 3.779381361307622*^9}, {
  3.7793814285575323`*^9, 3.7793814785449195`*^9}, {3.7793815141272326`*^9, 
  3.7793815191066537`*^9}, {3.779381566237707*^9, 3.7793816145912743`*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"db48f911-8915-4aec-b937-04d5b3ef3497"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"g", " ", "l", " ", "m1", " ", 
         RowBox[{"Cos", "[", 
          SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
        RowBox[{"g", " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"l", " ", 
            RowBox[{"Cos", "[", 
             SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
            RowBox[{"Cos", "[", 
             SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"a", " ", "l", " ", "m1", " ", 
         RowBox[{"Sin", "[", 
          SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
        RowBox[{"a", " ", "m", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"l", " ", 
            RowBox[{"Sin", "[", 
             SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
            RowBox[{"Sin", "[", 
             SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "m1", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"l", " ", 
                RowBox[{"Cos", "[", 
                 SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"l", " ", 
                RowBox[{"Sin", "[", 
                 SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"l", " ", 
                RowBox[{"Cos", "[", 
                 SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"l", " ", 
                RowBox[{"Sin", "[", 
                 SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
              MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}]}], 
       ")"}], "\[Prime]",
      MultilineFunction->None], "[", "v1", "]"}], "\[Prime]",
    MultilineFunction->None], "[", "t", "]"}], "+", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], " ", "m1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Cos", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Cos", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], 
             "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Sin", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Sin", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], 
             "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", "m2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Cos", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Cos", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], 
             "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Sin", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
             MultilineFunction->None], "[", "t", "]"}], " ", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"l", " ", 
               RowBox[{"Sin", "[", 
                SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], 
             "\[Prime]\[Prime]",
             MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], ")"}], 
     "\[Prime]",
     MultilineFunction->None], "[", "v1", "]"}], "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{3.77938152332677*^9, 3.7793815792141266`*^9, 
  3.779381626901586*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"653e1b98-f0bb-4da0-af1f-34abd68a3cee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"L", "[", 
    SubscriptBox["\[Theta]", "1"], "]"}], ",", 
   SubscriptBox["\[Theta]", "1"]}], "]"}]], "Input",
 CellChangeTimes->{{3.7793816463072824`*^9, 3.779381690833809*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"1b141f26-5fb9-48aa-a490-c31c9a6da600"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"g", " ", "l", " ", "m1", " ", 
       RowBox[{"Cos", "[", 
        SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
      RowBox[{"g", " ", "m2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"l", " ", 
          RowBox[{"Cos", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
          RowBox[{"Cos", "[", 
           SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"a", " ", "l", " ", "m1", " ", 
       RowBox[{"Sin", "[", 
        SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
      RowBox[{"a", " ", "m", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"l", " ", 
          RowBox[{"Sin", "[", 
           SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "l"}], "+", "LL"}], ")"}], " ", 
          RowBox[{"Sin", "[", 
           SubscriptBox["\[Theta]", "2"], "]"}]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "m1", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"l", " ", 
              RowBox[{"Cos", "[", 
               SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"l", " ", 
              RowBox[{"Sin", "[", 
               SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", "m2", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"l", " ", 
              RowBox[{"Cos", "[", 
               SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"], "+", 
         SuperscriptBox[
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"l", " ", 
              RowBox[{"Sin", "[", 
               SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
            MultilineFunction->None], "[", "t", "]"}], "2"]}], ")"}]}]}], 
     ")"}], "\[Prime]",
    MultilineFunction->None], "[", 
   SubscriptBox["\[Theta]", "1"], "]"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"a", " ", "l", " ", "m", " ", 
      RowBox[{"Cos", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
     RowBox[{"a", " ", "l", " ", "m1", " ", 
      RowBox[{"Cos", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "-", 
     RowBox[{"g", " ", "l", " ", "m1", " ", 
      RowBox[{"Sin", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "-", 
     RowBox[{"g", " ", "l", " ", "m2", " ", 
      RowBox[{"Sin", "[", 
       SubscriptBox["\[Theta]", "1"], "]"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", "m1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"l", " ", 
             RowBox[{"Cos", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "l"}], " ", 
             RowBox[{"Sin", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"l", " ", 
             RowBox[{"Cos", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"l", " ", 
             RowBox[{"Sin", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", "m2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"l", " ", 
             RowBox[{"Cos", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "l"}], " ", 
             RowBox[{"Sin", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"l", " ", 
             RowBox[{"Cos", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], " ", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"l", " ", 
             RowBox[{"Sin", "[", 
              SubscriptBox["\[Theta]", "1"], "]"}]}], ")"}], "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]}], ")"}], 
   "[", 
   SubscriptBox["\[Theta]", "1"], "]"}]}]], "Output",
 CellChangeTimes->{3.7793816920607324`*^9},
 CellLabel->
  "Out[146]=",ExpressionUUID->"3553789f-0d6a-4238-8403-6ca83b6c56bc"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.7793803638567624`*^9, 
  3.7793804926975875`*^9},ExpressionUUID->"b104f5ef-84a8-4a7b-a6ea-\
67dad888e930"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7793804983730125`*^9, 
  3.7793804984671974`*^9}},ExpressionUUID->"da022573-8793-4a2a-92a7-\
84bfb442064e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t", "=", "2"}]], "Input",
 CellChangeTimes->{{3.779380357164827*^9, 3.7793803740291753`*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"b99aa1bd-59e9-440f-9cc1-a76d9a635f67"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{{3.7793803605973015`*^9, 3.7793803749633713`*^9}},
 CellLabel->
  "Out[106]=",ExpressionUUID->"e7c66faf-643b-4edc-ae8e-177684d14052"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.779380334203266*^9, 3.7793803509215875`*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"54f4082e-f36f-4cd8-a5d4-172f4ae7899a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"w", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.7793798107333646`*^9, 3.7793798124946475`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"93e4d14e-1e9d-4102-87b7-76312b51f749"],

Cell[BoxData[
 RowBox[{"w", "[", "t", "]"}]], "Output",
 CellChangeTimes->{{3.7793798138180647`*^9, 3.779379827959716*^9}, 
   3.779379995161595*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"9760dce8-97bf-48d8-9d57-4f5b241491af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "[", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "t", "}"}], ",", 
     RowBox[{"w", "[", "t", "]"}]}], "]"}], "]"}], "[", "t", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[93]:=",ExpressionUUID->"f1b81ea7-cf22-4d49-af76-905e3dfd13f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"InverseFunction", "[", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "t", "}"}], ",", 
     RowBox[{"w", "[", "t", "]"}]}], "]"}], "]"}], "[", "t", "]"}]], "Output",
 CellChangeTimes->{3.779380004742183*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"b90385b4-ebd4-4454-8123-2ef5bf85524a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "t"], 
  RowBox[{"w", "[", "t", "]"}]}]], "Input",
 NumberMarks->False,
 CellLabel->"In[90]:=",ExpressionUUID->"f48e314b-e947-4345-beb4-ca16886b540e"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["w", "\[Prime]",
   MultilineFunction->None], "[", "t", "]"}]], "Output",
 CellChangeTimes->{3.7793798309976454`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"73d0d9b8-bc7f-48d6-b9c1-54f41ac8c4e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "1", "2"], 
  RowBox[{
   RowBox[{
    SuperscriptBox["w", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Input",
 NumberMarks->False,
 CellLabel->"In[91]:=",ExpressionUUID->"7d383751-b883-459d-a3d0-833a56dbaf2d"],

Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "1", "2"], 
  RowBox[{
   RowBox[{
    SuperscriptBox["w", "\[Prime]",
     MultilineFunction->None], "[", "t", "]"}], 
   RowBox[{"\[DifferentialD]", "t"}]}]}]], "Output",
 CellChangeTimes->{3.7793799874350786`*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"36f64428-5cef-4742-8081-a13415690d4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"w", "[", "t", "]"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7793798189868155`*^9, 3.779379823365919*^9}, {
  3.7793800535899076`*^9, 3.7793800574797835`*^9}, {3.7793800907380085`*^9, 
  3.779380091222975*^9}, {3.7793802020657687`*^9, 3.779380203019213*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"bad5184d-2ff6-480b-a783-9d3b3f82859b"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7793798238755584`*^9, 3.7793800588198195`*^9, 
  3.779380092212381*^9, 3.7793802038459983`*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"a811419e-ef16-46a5-9e2b-1c14626fa9f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"w", "[", "t", "]"}], "=", 
  RowBox[{"2", "t"}]}]], "Input",
 CellChangeTimes->{{3.7793800689778957`*^9, 3.7793800756194773`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"fab69280-5a50-4199-81e2-46d87030bf3e"],

Cell[BoxData[
 RowBox[{"2", " ", "t"}]], "Output",
 CellChangeTimes->{3.7793800766529565`*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"8d89f773-1eeb-4334-90c1-7383ae316c8d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "t"], 
  RowBox[{"(", 
   RowBox[{"2", " ", "t"}], ")"}]}]], "Input",
 NumberMarks->False,
 CellLabel->"In[96]:=",ExpressionUUID->"ce0df057-b5da-4057-a745-c96cabac2c58"],

Cell[BoxData["2"], "Output",
 CellChangeTimes->{3.7793800817628293`*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"f518bd96-3c7a-45a5-b71c-ea577e070d01"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.779378111548943*^9, 3.779378201013073*^9}, {
   3.7793787045372424`*^9, 3.7793787387048793`*^9}, 
   3.7793793613120623`*^9},ExpressionUUID->"7207b176-12b2-4667-a497-\
e879dd26adb3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.7793793646536922`*^9},
 NumberMarks->False,ExpressionUUID->"793670a1-2818-4303-a5a5-202ba7beaf0c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.779379370372243*^9, 
  3.779379370441681*^9}},ExpressionUUID->"3b76abc5-a1be-4a7e-b9c4-\
922d7e8b2890"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.779378239422924*^9, 3.779378327015842*^9}, 
   3.779379367651537*^9},ExpressionUUID->"04278d9c-3dde-4606-9001-\
ae28ef46c65f"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.77937937290149*^9, 
  3.7793793729503593`*^9}},ExpressionUUID->"4428cac4-da03-4ebc-a658-\
bcbe4f191b67"],

Cell[CellGroupData[{

Cell[BoxData["v3"], "Input",
 CellChangeTimes->{{3.779378850421367*^9, 3.7793788516630354`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"56495101-9335-45d5-8f21-8aece968ea3a"],

Cell[BoxData["v3"], "Output",
 CellChangeTimes->{3.7793788524080515`*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"083c5330-151b-4623-9e92-4ed258cc2d4a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"v3", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7793783677888947`*^9, 3.7793783871530104`*^9}, {
  3.779378723385666*^9, 3.779378727283373*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"97993466-193d-495e-ab50-bcba4f115da5"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7793783877261686`*^9, 3.77937850801563*^9, 
  3.779378728028652*^9, 3.779378803435567*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"b87bf5d6-06e4-442d-b5dc-03feede753e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Theta]", "1"], "[", "t_", "]"}]], "Input",
 CellChangeTimes->{{3.7793784895691643`*^9, 3.7793785031095877`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"1e89278d-a485-40c7-a7b9-c46bd7c98474"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Theta]", "1"], "[", "t_", "]"}]], "Output",
 CellChangeTimes->{3.77937850408998*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"1b925734-5268-4ba0-9274-238737ce1d3a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "v3", "]"}]], "Input",
 CellChangeTimes->{{3.7793789016081123`*^9, 3.779378909904004*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"ce43e5a0-725f-4dd2-b66f-32ec75acb69e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"v3", "[", "t_", "]"}], ":=", 
  RowBox[{"Sin", "[", "t", "]"}]}]], "Input",
 CellChangeTimes->{{3.779378913278597*^9, 3.779378930775033*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"9d8b48ce-8486-49a3-b5b2-052ec124384d"],

Cell[CellGroupData[{

Cell[BoxData["v3"], "Input",
 CellChangeTimes->{{3.7793789345974293`*^9, 3.779378941106358*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"1c392faa-e86c-4f53-9b80-5875d17b48df"],

Cell[BoxData["v3"], "Output",
 CellChangeTimes->{{3.779378935678528*^9, 3.7793789419332047`*^9}},
 CellLabel->"Out[31]=",ExpressionUUID->"f3bd2348-465c-4d1d-8b9a-e4d5567a640e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"v3", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7793789459413905`*^9, 3.7793789535150976`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"f1f28ae0-2ba7-4331-8336-54ddec833e71"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.77937895413439*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"d49f9a0f-a36a-41c1-88f6-c64d6f03db4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v3", "[", "1", "]"}]], "Input",
 CellChangeTimes->{{3.7793789661681614`*^9, 3.779378971553686*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"06854ed1-c339-460b-937d-fe9a1f9c89ee"],

Cell[BoxData[
 RowBox[{"Sin", "[", "1", "]"}]], "Output",
 CellChangeTimes->{3.7793789721546803`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"d7a899a5-e8de-402f-aae3-65faf052aa3a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["w"], "Input",
 CellChangeTimes->{3.7793790052657948`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"4a8c61a3-60fe-4c73-9316-d20d1a5bfdac"],

Cell[BoxData["w"], "Output",
 CellChangeTimes->{3.7793790077845707`*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"c086bf92-8023-4425-8232-3253d2845467"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{"w", ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.7793790100402327`*^9, 3.779379013373807*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"3b7c4249-4df7-4d8f-980a-50901df2f48f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7793790139938393`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"d27f49f0-a638-44f2-9b2a-20a410129b68"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v3", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.779379073592391*^9, 3.7793790781344137`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"e853b6cb-e7ab-4b42-bda9-8ec49ac8442c"],

Cell[BoxData[
 RowBox[{"Sin", "[", "t", "]"}]], "Output",
 CellChangeTimes->{3.7793790785809703`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"10d49c81-1f5b-43ab-8d64-c2e2cefb0f16"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "v3", "]"}]], "Input",
 CellChangeTimes->{{3.779379085535864*^9, 3.779379104034309*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"d38599e9-5a5f-4684-a080-8abdc3bff3e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"v3", "[", "t", "]"}]], "Input",
 CellChangeTimes->{{3.7793791081739902`*^9, 3.779379112575739*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"dddf0e6d-b4c4-4c68-b838-d4c05676b0d3"],

Cell[BoxData[
 RowBox[{"v3", "[", "t", "]"}]], "Output",
 CellChangeTimes->{3.779379113113527*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"35edf665-f6e8-4a00-aa16-e7eb998bce4d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[PartialD]", "t"], 
  RowBox[{"v3", "[", "t", "]"}]}]], "Input",
 NumberMarks->False,
 CellLabel->"In[40]:=",ExpressionUUID->"2c3317a2-d73a-44ed-871a-e67a3afc6dee"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["v3", "\[Prime]",
   MultilineFunction->None], "[", "t", "]"}]], "Output",
 CellChangeTimes->{3.7793791165813484`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"c282fcf5-d9ef-414f-ad2e-00b142f63803"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7793778736339903`*^9, 
  3.779377878513588*^9}},ExpressionUUID->"19ce562f-8a19-42d8-9476-\
1156ad9dc666"]
},
WindowSize->{759, 553},
WindowMargins->{{149, Automatic}, {15, Automatic}},
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (2018\:5e743\:670828\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 326, 6, 45, "Input",ExpressionUUID->"aaef2067-e2c3-4a61-9dd8-dd5ae8f23f26"],
Cell[CellGroupData[{
Cell[909, 30, 309, 6, 28, "Input",ExpressionUUID->"a326f2bf-e3ac-4644-81d5-f8fb52d07ccf"],
Cell[1221, 38, 279, 6, 32, "Output",ExpressionUUID->"4193da95-bf30-4eef-b42b-453d10d9cfa8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1537, 49, 448, 11, 28, "Input",ExpressionUUID->"85798104-fa4c-45ab-9d90-3ce2e605e27b"],
Cell[1988, 62, 621, 14, 32, "Output",ExpressionUUID->"d8f579f2-498c-4560-8380-7a2241af0f99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2646, 81, 452, 11, 28, "Input",ExpressionUUID->"a647f5b4-17a8-4976-8588-26b332a76b4f"],
Cell[3101, 94, 553, 13, 32, "Output",ExpressionUUID->"55b554bf-a90f-42ea-ad29-8baa4f45cb7f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3691, 112, 223, 5, 28, "Input",ExpressionUUID->"28b63a57-7716-4720-95d0-dfa924fb1d8d"],
Cell[3917, 119, 300, 6, 32, "Output",ExpressionUUID->"a4c26d5e-8e54-4670-8adb-23c9dede361c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4254, 130, 552, 15, 45, InheritFromParent,ExpressionUUID->"1d6533f7-08d4-4e54-9971-385acb0ce505"],
Cell[4809, 147, 541, 15, 32, "Output",ExpressionUUID->"270f5053-cec7-4f1d-b226-debf8612f921"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5387, 167, 286, 7, 45, "Input",ExpressionUUID->"71891fd5-2754-45a8-aeb0-a42ee22d5822"],
Cell[5676, 176, 312, 7, 32, "Output",ExpressionUUID->"cdfc5049-32d4-4495-b9b9-2f1c32c2026c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6025, 188, 284, 7, 45, InheritFromParent,ExpressionUUID->"8a5fecc0-3dff-47a3-afff-75a474dfa40d"],
Cell[6312, 197, 336, 7, 32, "Output",ExpressionUUID->"a120ec09-6913-4fff-aeaf-89bd21adb800"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6685, 209, 476, 14, 45, "Input",ExpressionUUID->"9978bab7-898d-4246-bcbf-e39a2b094438"],
Cell[7164, 225, 418, 13, 32, "Output",ExpressionUUID->"60d12355-2711-4fbe-918f-a980e66da03f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7619, 243, 343, 9, 45, "Input",ExpressionUUID->"adda2796-3e9a-421f-94d9-d3ecc5c61974"],
Cell[7965, 254, 437, 9, 32, "Output",ExpressionUUID->"7a65ba71-5a3c-4774-9fd1-e9bd43656a94"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8439, 268, 1061, 33, 45, "Input",ExpressionUUID->"8affc90d-0289-4374-9e03-b4dd8d2179a3"],
Cell[9503, 303, 1493, 46, 55, "Output",ExpressionUUID->"2ce06a8a-e4d8-4250-b8c9-4e5407a77319"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11033, 354, 448, 12, 28, "Input",ExpressionUUID->"ea5ac848-4dda-4f36-bac9-7cdcfdef4c32"],
Cell[11484, 368, 1147, 35, 52, "Output",ExpressionUUID->"807807af-c4e6-409a-89bb-53f2f1a6f203"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12668, 408, 154, 3, 28, "Input",ExpressionUUID->"f76a000c-e6d6-4284-87d5-0cd2b1e23ef9"],
Cell[12825, 413, 2419, 75, 95, "Output",ExpressionUUID->"cc27a729-37ee-48b3-b763-ed3a2889113d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15281, 493, 653, 14, 45, "Input",ExpressionUUID->"db48f911-8915-4aec-b937-04d5b3ef3497"],
Cell[15937, 509, 5956, 163, 144, "Output",ExpressionUUID->"653e1b98-f0bb-4da0-af1f-34abd68a3cee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21930, 677, 318, 8, 45, "Input",ExpressionUUID->"1b141f26-5fb9-48aa-a490-c31c9a6da600"],
Cell[22251, 687, 5962, 168, 192, "Output",ExpressionUUID->"3553789f-0d6a-4238-8403-6ca83b6c56bc"]
}, Open  ]],
Cell[28228, 858, 154, 3, 28, InheritFromParent,ExpressionUUID->"b104f5ef-84a8-4a7b-a6ea-67dad888e930"],
Cell[28385, 863, 156, 3, 28, InheritFromParent,ExpressionUUID->"da022573-8793-4a2a-92a7-84bfb442064e"],
Cell[CellGroupData[{
Cell[28566, 870, 200, 4, 28, "Input",ExpressionUUID->"b99aa1bd-59e9-440f-9cc1-a76d9a635f67"],
Cell[28769, 876, 181, 3, 32, "Output",ExpressionUUID->"e7c66faf-643b-4edc-ae8e-177684d14052"]
}, Open  ]],
Cell[28965, 882, 209, 4, 45, "Input",ExpressionUUID->"54f4082e-f36f-4cd8-a5d4-172f4ae7899a"],
Cell[CellGroupData[{
Cell[29199, 890, 203, 3, 28, "Input",ExpressionUUID->"93e4d14e-1e9d-4102-87b7-76312b51f749"],
Cell[29405, 895, 228, 4, 32, "Output",ExpressionUUID->"9760dce8-97bf-48d8-9d57-4f5b241491af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29670, 904, 314, 8, 45, "Input",ExpressionUUID->"f1b81ea7-cf22-4d49-af76-905e3dfd13f9"],
Cell[29987, 914, 336, 8, 32, "Output",ExpressionUUID->"b90385b4-ebd4-4454-8123-2ef5bf85524a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30360, 927, 204, 5, 28, "Input",ExpressionUUID->"f48e314b-e947-4345-beb4-ca16886b540e"],
Cell[30567, 934, 237, 5, 32, "Output",ExpressionUUID->"73d0d9b8-bc7f-48d6-b9c1-54f41ac8c4e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30841, 944, 330, 9, 46, "Input",ExpressionUUID->"7d383751-b883-459d-a3d0-833a56dbaf2d"],
Cell[31174, 955, 354, 9, 50, "Output",ExpressionUUID->"36f64428-5cef-4742-8081-a13415690d4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31565, 969, 405, 7, 45, "Input",ExpressionUUID->"bad5184d-2ff6-480b-a783-9d3b3f82859b"],
Cell[31973, 978, 224, 3, 32, "Output",ExpressionUUID->"a811419e-ef16-46a5-9e2b-1c14626fa9f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32234, 986, 244, 5, 28, "Input",ExpressionUUID->"fab69280-5a50-4199-81e2-46d87030bf3e"],
Cell[32481, 993, 173, 3, 32, "Output",ExpressionUUID->"8d89f773-1eeb-4334-90c1-7383ae316c8d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32691, 1001, 223, 6, 28, "Input",ExpressionUUID->"ce0df057-b5da-4057-a745-c96cabac2c58"],
Cell[32917, 1009, 151, 2, 32, "Output",ExpressionUUID->"f518bd96-3c7a-45a5-b71c-ea577e070d01"]
}, Open  ]],
Cell[33083, 1014, 231, 4, 28, "Input",ExpressionUUID->"7207b176-12b2-4667-a497-e879dd26adb3"],
Cell[33317, 1020, 146, 2, 28, "Input",ExpressionUUID->"793670a1-2818-4303-a5a5-202ba7beaf0c"],
Cell[33466, 1024, 152, 3, 28, InheritFromParent,ExpressionUUID->"3b76abc5-a1be-4a7e-b9c4-922d7e8b2890"],
Cell[33621, 1029, 175, 3, 28, "Input",ExpressionUUID->"04278d9c-3dde-4606-9001-ae28ef46c65f"],
Cell[33799, 1034, 153, 3, 28, InheritFromParent,ExpressionUUID->"4428cac4-da03-4ebc-a658-bcbe4f191b67"],
Cell[CellGroupData[{
Cell[33977, 1041, 175, 2, 28, "Input",ExpressionUUID->"56495101-9335-45d5-8f21-8aece968ea3a"],
Cell[34155, 1045, 152, 2, 32, "Output",ExpressionUUID->"083c5330-151b-4623-9e92-4ed258cc2d4a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34344, 1052, 276, 5, 45, "Input",ExpressionUUID->"97993466-193d-495e-ab50-bcba4f115da5"],
Cell[34623, 1059, 219, 3, 32, "Output",ExpressionUUID->"b87bf5d6-06e4-442d-b5dc-03feede753e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34879, 1067, 233, 4, 28, "Input",ExpressionUUID->"1e89278d-a485-40c7-a7b9-c46bd7c98474"],
Cell[35115, 1073, 205, 4, 32, "Output",ExpressionUUID->"1b925734-5268-4ba0-9274-238737ce1d3a"]
}, Open  ]],
Cell[35335, 1080, 206, 3, 45, "Input",ExpressionUUID->"ce43e5a0-725f-4dd2-b66f-32ec75acb69e"],
Cell[35544, 1085, 255, 5, 45, "Input",ExpressionUUID->"9d8b48ce-8486-49a3-b5b2-052ec124384d"],
Cell[CellGroupData[{
Cell[35824, 1094, 175, 2, 28, "Input",ExpressionUUID->"1c392faa-e86c-4f53-9b80-5875d17b48df"],
Cell[36002, 1098, 176, 2, 32, "Output",ExpressionUUID->"f3bd2348-465c-4d1d-8b9a-e4d5567a640e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36215, 1105, 227, 4, 45, "Input",ExpressionUUID->"f1f28ae0-2ba7-4331-8336-54ddec833e71"],
Cell[36445, 1111, 148, 2, 32, "Output",ExpressionUUID->"d49f9a0f-a36a-41c1-88f6-c64d6f03db4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36630, 1118, 202, 3, 28, "Input",ExpressionUUID->"06854ed1-c339-460b-937d-fe9a1f9c89ee"],
Cell[36835, 1123, 180, 3, 32, "Output",ExpressionUUID->"d7a899a5-e8de-402f-aae3-65faf052aa3a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37052, 1131, 150, 2, 28, "Input",ExpressionUUID->"4a8c61a3-60fe-4c73-9316-d20d1a5bfdac"],
Cell[37205, 1135, 151, 2, 32, "Output",ExpressionUUID->"c086bf92-8023-4425-8232-3253d2845467"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37393, 1142, 224, 4, 45, "Input",ExpressionUUID->"3b7c4249-4df7-4d8f-980a-50901df2f48f"],
Cell[37620, 1148, 151, 2, 32, "Output",ExpressionUUID->"d27f49f0-a638-44f2-9b2a-20a410129b68"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37808, 1155, 202, 3, 28, "Input",ExpressionUUID->"e853b6cb-e7ab-4b42-bda9-8ec49ac8442c"],
Cell[38013, 1160, 180, 3, 32, "Output",ExpressionUUID->"10d49c81-1f5b-43ab-8d64-c2e2cefb0f16"]
}, Open  ]],
Cell[38208, 1166, 204, 3, 45, "Input",ExpressionUUID->"d38599e9-5a5f-4684-a080-8abdc3bff3e1"],
Cell[CellGroupData[{
Cell[38437, 1173, 202, 3, 28, "Input",ExpressionUUID->"dddf0e6d-b4c4-4c68-b838-d4c05676b0d3"],
Cell[38642, 1178, 177, 3, 32, "Output",ExpressionUUID->"35edf665-f6e8-4a00-aa16-e7eb998bce4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38856, 1186, 205, 5, 28, "Input",ExpressionUUID->"2c3317a2-d73a-44ed-871a-e67a3afc6dee"],
Cell[39064, 1193, 238, 5, 32, "Output",ExpressionUUID->"c282fcf5-d9ef-414f-ad2e-00b142f63803"]
}, Open  ]],
Cell[39317, 1201, 154, 3, 28, "Input",ExpressionUUID->"19ce562f-8a19-42d8-9476-1156ad9dc666"]
}
]
*)

(* End of internal cache information *)

